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R = Calculate cyclic redundancy check 15-SEP-1984 23:49:22 VAX/VMS Macro V04-00 Page 0 
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IBSCRC 

able of contents 
(2) 38 DECLARATIONS 
(2) 8 


LIBSCRC = Calculate cyclic redundancy check 


C 4 
LIBSCRC = Calculate cyclic redundancy check 15-SEP-1984 23:49:22 VAX/VMS Macro V04-00 Page 1 | L 
1-006 . . gree ay 9RG $7209;86 FO TONTE. eae aCIMCRC MARS 1 Fi V 
-TITLE LIBSCRC - Calculate cyclic redundancy check 
-IDENT /1-006/ ; File: LIBCRC.MAR Edit: RKR1006 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


® 
-* * 
-* ® 
-* * 
-* 2 
j* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
j* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
j* INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR OTHER * 
+ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY = 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * | 
-® * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
-* *® 
;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
-* *® 
-* * 
® * 
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++ 
; FACILITY: General Utility Library 


> ABSTRACT: | 
Calculate the CRC of a data stream 
; ENVIRONMENT: User Mode, AST Reentrant 


: AUTHOR: Donald G. Petersen, CREATION DATE: 30-Dec-77 | 
: MODIFIED BY: | 
: DGP, 30-Dec-77 : VERSION 00 
: - Origi nal 
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-001 - Updated verg ion number and cogye tent og notice. JBS 16-NOv-78 
“306 - Add “'."' to PSECT directive. -7 
0 -003 - Add R2 and R35 to the entrymgsk singe San are clobbered by 
0 ; the CRC instruction. 
0 ; 1-004 = Enhance to recognize add eis tones classes of opring Ge dnec rioters 
0 : by invoking LIB ANALYZE _SDESC_R te extract length 
0 address of 1st data byté. RKR 26-MAY-1981. 
0 1-005 - Add aSheg pi ~cese code to process chagses of descriptors that 
0 ' AS fixed strings more strictentty. & R 7-0CT-1981 
000 1-006 - Saf sb from 1.068 Lve SDESC_R 
000 LIBSANALY E_SDESC_R RKR 18=NOV-1981. 
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~SBTTL DECLARATIONS 
; INCLUDE FILES: NONE 


; EXTERNAL SYMBOLS 
-DSABL GBL 3; Only explicit externals 
«EXTRN LIBSANALYZE_SDESC_R2 ; Extract length and address of 
; Ist data byte of string. 
: MACROS: 
‘ SDSCDEF ; symbols for parts of a 


; descriptor 


; EQUATED SYMBOLS: NONE 


OWN STORAGE: NONE 


PSECT DECLARATIONS: 
-PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 


C 
R 
0 
0 
0 
] 
Q 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
00000 
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late cyclic redundancy check 15-SEP-19 :49:22 VAX/VMS Macro V04-00 P 
{ Y Be fti03:86 £5 age, 


leu 
CRC = Calculate cyclic redundancy c 6=SEP-19 LIBRTL.SRCIJLIBCRC.MAR; 1 
ih 7 cs ~SBTTL LIBSCRC = Calculate cyclic redundancy check ; 
3% ; ; FUNCTIONAL DESCRIPTION: | : 
i 4 ; The CRC of the data stream specified is calculated and returned. | : 
Bn8 $8 ; CALLING SEQUENCE: : 
0000 oo § crc.wl.v = LIBSCRC (table.rl.ra, inicre.rl.r, stream.rt.dx) " 
0000 96 ; 
000097 ; | : 
iti os ; INPUT PARAMETERS: : 
00000004 0000 100 TABLE = 4 ; Adr. of table : 
00000008 0000 101 INICRC = 8 ; Adr. of adr. of initial CRC longword ; 
0000000C B88 16 STREAM = 12 ; Adr. of data stream desc. : 
Q000 104 ; IMPLICIT INPUTS: : 
0000 105 ; : 
0000 106 ; NONE ‘ 
0000 107 ; : 
0000 108 ; OUTPUT PARAMETERS: | : 
0000 109 ; : 
0000 «4110; NONE : 
0000 «(111 ; : 
0000 V1 ; IMPLICIT OUTPUTS: : 
0000 «113; : 
0000 114; NONE : 
0000 115; : 
0000 116 ; FUNCTION VALUE: : 
0000 «117 ; | ; 
0000 118; crc.wl.v : 
0000 119; ; 
0000 120 ; SIDE EFFECTS: : 
0000 121; : 
0000 \$¢ ; NONE : 
0000 123; : 
0000 124 ;-- : 
0000 125 : 
000c 0000 126 ENTRY Bite, ork R3> ; Entry poin : 
50 OC AC DO 0002 127 MOVL STREA Addre ess My STREAM Gree igtor 3 
02 03 AO 91 0006 128 CMPB DSC$B_ CLASS (ROD, #DSCSK_ éLASS D; read athe fi : 
oc (1A BOOA 130 BGTRU 18 ; used general path | : 
50 Oc BC 7D a 131 MOVQ @STREAM(AP), RO ponged = ->RO, addr => R1 ; 
61 50 0868C 04 B8C OB i 13 CRC @TABLE(AP), @INICRC(AP), “Rd, ; cane crc : 
04 0017 133 RET ; return result in R : 
00000000'GF 16 Bete 138 1$: JSB G*LIBSANALYZE_S R2 ; Extract: len cheat. addr->R2 ; 
62 51 08 B6C 04 68C OB OOI1E 1 § CRC @TABLE (AP), SIN RETA P), R1, (Re) ; Ca culate’ ¢ C : 
2 : 5 ; return result in RO : 


LIBSCRC 
Symbol table 


BSANALYZE_SDESC_R2 
BSCRC 

REAM 

ABLE 


PSECT name 


Initialization 
Command processing 


Pass 1 
Symbol table sort 
Pass 

Symbol table output 
Psect synopsis output 


Assembler run totals 


Macro Library name 


Cross-reference output 


Page faults 


AX/VMS Macro V04-00 Page 
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= Calculate cyclic redundancy check 1 mise t ty 716868 r 
SEP=1984 11:03: LIBRTL.SRCILIBCRC.MAR;1 


SSHODRR: 
0000 
geeeeeeee x 
00000000 RG 
0000000C 
00000004 
seeeceeneeeeoaeeaeces + 
' Psect synopsis H 
Allocation PSECT No. Attributes 
00000000 ( NOPIC USR CON ABS 


0.) 00¢ 0.) LCL 
00000000 < a+ 01 ¢ 1.) NOPIC USR CON ABS ter 


22 
oO 


OSHR NOEXE NORD NOWRT NOVEC BYTE 
an BNE RD WRT NOVEC BYTE 


00000026 (« 38.) 02 ¢ 2.) PIC USR CON” REL RD NOWRT NOVEC LONG 


Gwoeeeeeceececooecesesces$} 


CPU Time Elapsed Time 
29 00:00:00.0? 00:00:01 .39 
118 00:00:00.34 00:00:05.76 
132 00:00:01.11 00:00:08.64 
0 00:00:00.11 00:00:00.47 
38 00:00:00.32 00:00:04.72 
¢ 00:00:00.01 00:00:00.01 
00:00:00.01 00:00:00.01 
0 00:00:00.00 00:00:00.00 
324 00:00:01.95 00:00:20.90 


The working set Limit was 900 pages. 

7651 bytes (15 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 136 non-local and 1 local symbols. 
138 source Lines were read in Pass 1, produc ing 13 object records in Pass 2. 

8 pages of virtual memory were used to define / mac 


ros. 


+ 
! Macro library statistics ! 
+ 


weememwmem ewer wmeoee wore ooeo oe] + 


Macros defined 


-$255$DUA28: CSYSLIBISTARLET.MLB; 2 4 

190 GETS were required to define 4 macros. 

There were no errors, warnings or information messages. 
MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBCRC/OBJ=OBJ$:LIBCRC MSRC$:LIBCRC/UPDATE=(ENHS$:LIBCRC) 
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